Private Sub Text1_Change()
If Len(Text1.Text) = 2 Then
Text1.Text = Text1.Text + "*"
End If
End Sub
